home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / misc / EasyRCS13.lha / easyrcs_1.3 / arexx / ScanFiles.ercs < prev   
Encoding:
Text File  |  1996-09-04  |  285 b   |  23 lines
  1. /*  ScanFiles.ercs
  2.  *    Yann Muller © 1996
  3.  *    Version 1.1   ---  03/09/96
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 11
  8. ADDRESS EASYRCS
  9.  
  10. 'query showstate'
  11. show_old = RESULT
  12.  
  13. 'show both'
  14. 'select top'
  15.  
  16. DO while RC == 0
  17.     /* insert code here */
  18.  
  19.     'select next'
  20.     END
  21.  
  22. 'show' show_old
  23.